home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Business Master (3rd Edition)
/
The Business Master (3rd Edition).iso
/
files
/
grap_cad
/
dancd23
/
demo2c.sub
< prev
next >
Wrap
Text File
|
1990-01-31
|
4KB
|
164 lines
; DEMO2C.SUB
; Begin make Small Gear
TRACE OFF 500 ; just in case is was left on
TEXT LOCATE 23 13 ECHO <WORKING: Making the small gear> %%
INIT
; tooth
ENTER
231 -61 0 205.768076 -120.91525 0 1 1 0 0
231 -60 0 231 -57 0 1 1 0 0
231 -57 0 253 -57 0 1 1 0 0
253 -57 0 305 -48 0 1 1 0 0
305 -48 0 331 -39 0 1 1 0 0
331 -39 0 335 -18 0 1 1 0 0
231 60 0 231 57 0 1 1 0 0
231 57 0 253 57 0 1 1 0 0
253 57 0 305 48 0 1 1 0 0
305 48 0 331 39 0 1 1 0 0
331 39 0 335 18 0 1 1 0 0
335 -18 0 335 18 0 1 1 0 0
0 0 0 0 0 0 0 0 0 0 { END ENTER }
:SMALL
# 1 COPY
LET |ELES -> ELEMENTS
# |ELES ROTATE Z 0 0 [ 45 * ( |ELES - 1 ) ]
IF |ELES < 8 THEN GOTO :SMALL
RELEASE |ELES
POLYGON 24 24 75 1 1 0 0 ; Hole in small gear.
# 0 SAVE 3D TEMP.3D
INIT
LOAD 3D TEMP.3D
RELEASE TEMP.3D
# 1 OFFSET C 0 0 -50
# 1 THICKEN Z 100
# 0 MAGNIFY Z 1 1 2
# 0 SAVE 3D-QUICK SMALL.3D
; End make a Small Gear
; Start show Small Gear
GRAPH_MODE B&W
# 0 DISPLAY -11.25 -11.25 0 -1500 1.8 1 0 0
LOCATE 1 1 ECHO The Small Gear. Press [Return].
WAIT
; End show Small Gear
; Start Make the Large Gear
TEXT LOCATE 23 13 ECHO <WORKING: Making the Large Gear> %%
INIT
; tooth
ENTER
488 -65 0 475.727636 -126.69733 0 1 1 0 0
488 -65 0 491 -58 0 1 1 0 0
491 -58 0 526 -57 0 1 1 0 0
526 -57 0 561 -51 0 1 1 0 0
561 -51 0 598 -40 0 1 1 0 0
598 -40 0 604 0 0 1 1 0 0
488 65 0 491 58 0 1 1 0 0
491 58 0 526 57 0 1 1 0 0
526 57 0 561 51 0 1 1 0 0
561 51 0 598 40 0 1 1 0 0
598 40 0 604 0 0 1 1 0 0
0 0 0 0 0 0 0 0 0 0 { END ENTER }
:LARGE
# 1 COPY
LET |ELES -> ELEMENTS
# |ELES ROTATE Z 0 0 [ 22.5 * ( |ELES - 1 ) ]
IF |ELES < 16 THEN GOTO :LARGE
RELEASE |ELES
POLYGON 24 24 75 1 1 0 0 ; Hole.
# 0 SAVE 3D TEMP.3D
INIT
LOAD 3D TEMP.3D
RELEASE TEMP.3D
# 1 OFFSET C 0 0 -50
# 1 THICKEN Z 100
# 0 MAGNIFY Z 1 1 2
# 0 SAVE 3D-Quick LARGE.3D
; End of Make Large Gear
; Start show Large Gear
GRAPH_MODE B&W
# 0 DISPLAY -11.25 -11.25 0 -2000 .9 1 0 0
LOCATE 1 1 ECHO The Large Gear. Press [Return].
WAIT
; End show Large Gear
; Begin Show Gears Pair Still
TEXT LOCATE 25 12 ECHO <WORKING: Making the Gear Pair> %%
INIT
LOAD 3D-QUICK SMALL.3D # 1 OFFSET C -302 0 0 # 1 ROTATE C 0 0 22.5
LOAD 3D-QUICK LARGE.3D # 2 OFFSET C 552 0 0
FILES ERASE SMALL.3D
FILES ERASE LARGE.3D
; Border, this was drawn in [F] (front) from main menu and brought in
; by saving it ASCII and reading it in with ^K^R. It could just as well
; be on a file, but this saves disk space.
ENTER
-955 -648 0 955 -648 0 1 1 0 0
955 -648 0 955 648 0 1 1 0 0
955 648 0 -955 648 0 1 1 0 0
-955 648 0 -955 -648 0 1 1 0 0
0 0 0 0 0 0 0 0 0 0
LETTERING
DANCAD 3D
-900 555 0 0 0 0 80 80 3 1 0 0 0 .4 .35 1 F P DANCAD3D.FON
GRAPH_MODE B&W
# 1 Display 0 -18 0 -4000 .88 1 -320 0
# 2 Display 0 -18 0 -4000 .88 1 -320 0
# 3 Display 0 0 0 -1E18 1 1 0 0
# 4 Display 0 0 0 -1E18 1 1 0 0
LOCATE 2 2 ECHO Press [Return].
WAIT
; End Show Gears Pair Still
; END